home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 May
/
64er_Magazin_88-05_1988_Markt__Technik_de_Side_A.d64
/
new colours.src
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
899b
|
57 lines
100 (NULL)
110 opt oo
120 *= $c000
130 cbasv = $d800
140 cbas1 = $c700
150 cbas2 = $cb00
160 sei
170 lda #<irqneu
180 sta $0314
190 lda #>irqneu
200 sta $0315
210 lda #$ff
220 sta $d012
230 lda $d011
240 and #%01111111
250 sta $d011
260 lda #%00000001
270 sta $d01a
280 lda #$7f
290 sta $dc0d
300 cli
310 rts
320 irqneu lda $d019
330 sta $d019
340 lda $d012
350 lda $02
360 beq erste
370 ldy #$00
380 loop1 lda cbas1,y
390 sta cbasv,y
400 lda cbas1 + $100 ,y
410 sta cbasv + $100 ,y
420 lda cbas1 + $200 ,y
430 sta cbasv + $200 ,y
440 lda cbas1 + $300 ,y
450 sta cbasv + $300 ,y
460 dey
470 bne loop1
480 lda #$00
490 sta $02
500 jmp $ea31
510 erste ldy #$00
520 loop2 lda cbas2,y
530 sta cbasv,y
540 lda cbas2 + $100 ,y
550 sta cbasv + $100 ,y
560 lda cbas2 + $200 ,y
570 sta cbasv + $200 ,y
580 lda cbas2 + $300 ,y
590 sta cbasv + $300 ,y
600 dey
610 bne loop2
620 lda #$ff
630 sta $02
640 jmp $ea31
0